home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / 3d / raystorm-complete / examples / exa.lha / arexx / attrtest1.ray < prev    next >
Text File  |  1996-07-27  |  3KB  |  162 lines
  1. /***************
  2.  * NAME:        attrtest1.ray
  3.  * DESCRIPTION: This ARexx-programm demonstrates different attributes
  4.  * AUTHOR:      Andreas Heumann
  5.  ***************/
  6.  
  7. signal on error
  8.  
  9. options results
  10.  
  11. IF ~show('P','RAYSTORM') THEN DO
  12.    address COMMAND 'stack 8192'
  13.    address COMMAND 'run >NIL: <NIL: /RayStorm'
  14.    address COMMAND 'stack 4096'
  15.    address COMMAND WaitForPort RAYSTORM
  16. END
  17.  
  18. address RAYSTORM
  19.  
  20. 'TEXTUREPATH /textures'
  21.  
  22. 'SETSCREEN 160 128'
  23. 'SETCAMERA <0,0,150> <0,0,0> <0,1,0> 56.25 45'
  24. 'SETWORLD [0,0,255] [60,60,60]'
  25. 'POINTLIGHT <-100,-100,500> [255,255,255] SHADOW'
  26.  
  27. 'NEWSURFACE ATTR0'
  28. 'AMBIENT [255,0,0]'
  29. 'DIFFUSE [255,0,0]'
  30. 'TRANSPAR [255,255,255]'
  31. 'REFLECT [0,0,0]'
  32.  
  33. 'NEWSURFACE ATTR1'
  34. 'AMBIENT [255,0,0]'
  35. 'DIFFUSE [255,0,0]'
  36. 'TRANSPAR [255,255,255]'
  37. 'REFLECT [85,85,85]'
  38.  
  39. 'NEWSURFACE ATTR2'
  40. 'AMBIENT [255,0,0]'
  41. 'DIFFUSE [255,0,0]'
  42. 'TRANSPAR [255,255,255]'
  43. 'REFLECT [170,170,170]'
  44.  
  45. 'NEWSURFACE ATTR3'
  46. 'AMBIENT [255,0,0]'
  47. 'DIFFUSE [255,0,0]'
  48. 'TRANSPAR [255,255,255]'
  49. 'REFLECT [255,255,255]'
  50.  
  51. 'NEWSURFACE ATTR4'
  52. 'AMBIENT [255,0,0]'
  53. 'DIFFUSE [255,0,0]'
  54. 'TRANSPAR [170,170,170]'
  55. 'REFLECT [0,0,0]'
  56.  
  57. 'NEWSURFACE ATTR5'
  58. 'AMBIENT [255,0,0]'
  59. 'DIFFUSE [255,0,0]'
  60. 'TRANSPAR [170,170,170]'
  61. 'REFLECT [85,85,85]'
  62.  
  63. 'NEWSURFACE ATTR6'
  64. 'AMBIENT [255,0,0]'
  65. 'DIFFUSE [255,0,0]'
  66. 'TRANSPAR [170,170,170]'
  67. 'REFLECT [170,170,170]'
  68.  
  69. 'NEWSURFACE ATTR7'
  70. 'AMBIENT [255,0,0]'
  71. 'DIFFUSE [255,0,0]'
  72. 'TRANSPAR [170,170,170]'
  73. 'REFLECT [255,255,255]'
  74.  
  75. 'NEWSURFACE ATTR8'
  76. 'AMBIENT [255,0,0]'
  77. 'DIFFUSE [255,0,0]'
  78. 'TRANSPAR [85,85,85]'
  79. 'REFLECT [0,0,0]'
  80.  
  81. 'NEWSURFACE ATTR9'
  82. 'AMBIENT [255,0,0]'
  83. 'DIFFUSE [255,0,0]'
  84. 'TRANSPAR [85,85,85]'
  85. 'REFLECT [85,85,85]'
  86.  
  87. 'NEWSURFACE ATTR10'
  88. 'AMBIENT [255,0,0]'
  89. 'DIFFUSE [255,0,0]'
  90. 'TRANSPAR [85,85,85]'
  91. 'REFLECT [170,170,170]'
  92.  
  93. 'NEWSURFACE ATTR11'
  94. 'AMBIENT [255,0,0]'
  95. 'DIFFUSE [255,0,0]'
  96. 'TRANSPAR [85,85,85]'
  97. 'REFLECT [255,255,255]'
  98.  
  99. 'NEWSURFACE ATTR12'
  100. 'AMBIENT [255,0,0]'
  101. 'DIFFUSE [255,0,0]'
  102. 'TRANSPAR [0,0,0]'
  103. 'REFLECT [0,0,0]'
  104.  
  105. 'NEWSURFACE ATTR13'
  106. 'AMBIENT [255,0,0]'
  107. 'DIFFUSE [255,0,0]'
  108. 'TRANSPAR [0,0,0]'
  109. 'REFLECT [85,85,85]'
  110.  
  111. 'NEWSURFACE ATTR14'
  112. 'AMBIENT [255,0,0]'
  113. 'DIFFUSE [255,0,0]'
  114. 'TRANSPAR [0,0,0]'
  115. 'REFLECT [170,170,170]'
  116.  
  117. 'NEWSURFACE ATTR15'
  118. 'AMBIENT [255,0,0]'
  119. 'DIFFUSE [255,0,0]'
  120. 'TRANSPAR [0,0,0]'
  121. 'REFLECT [255,255,255]'
  122.  
  123. 'NEWSURFACE PLANE'
  124. 'SPECULAR [0,0,0]'
  125. 'IMTEXTURE checker.itx <0,0,0.1> <0,0,0> <15,15,15>'
  126.  
  127. 'SPHERE ATTR0 <45,-45,0> 10'
  128. 'SPHERE ATTR1 <15,-45,0> 10'
  129. 'SPHERE ATTR2 <-15,-45,0> 10'
  130. 'SPHERE ATTR3 <-45,-45,0> 10'
  131.  
  132. 'SPHERE ATTR4 <45,-15,0> 10'
  133. 'SPHERE ATTR5 <15,-15,0> 10'
  134. 'SPHERE ATTR6 <-15,-15,0> 10'
  135. 'SPHERE ATTR7 <-45,-15,0> 10'
  136.  
  137. 'SPHERE ATTR8 <45,15,0> 10'
  138. 'SPHERE ATTR9 <15,15,0> 10'
  139. 'SPHERE ATTR10 <-15,15,0> 10'
  140. 'SPHERE ATTR11 <-45,15,0> 10'
  141.  
  142. 'SPHERE ATTR12 <45,45,0> 10'
  143. 'SPHERE ATTR13 <15,45,0> 10'
  144. 'SPHERE ATTR14 <-15,45,0> 10'
  145. 'SPHERE ATTR15 <-45,45,0> 10'
  146.  
  147. 'PLANE PLANE <0,0,-50> <0,0,1>'
  148.  
  149. 'STARTRENDER'
  150.  
  151. 'SAVEPIC attrtest1.iff'
  152.  
  153. 'CLEANUP'
  154.  
  155. exit 0
  156.  
  157. error:
  158. say "Error" rc "in line" sigl ":"
  159. GETERRORSTR rc
  160. say result
  161. exit 0
  162.